object frmShowCharge: TfrmShowCharge
  Left = 640
  Top = 514
  Width = 640
  Height = 480
  Caption = #1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1103' '#1087#1086' '#1091#1089#1083#1091#1075#1077
  Color = clBtnFace
  Constraints.MinHeight = 300
  Constraints.MinWidth = 550
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object gbCalcStr: TGroupBox
    Left = 0
    Top = 31
    Width = 632
    Height = 422
    Align = alClient
    Caption = ' '#1056#1072#1089#1096#1080#1092#1088#1086#1074#1082#1072' '
    TabOrder = 0
    object reCalcStr: TRichEdit
      Left = 2
      Top = 15
      Width = 628
      Height = 405
      Align = alClient
      BevelInner = bvNone
      BevelKind = bkFlat
      BevelWidth = 5
      BorderStyle = bsNone
      Lines.Strings = (
        '')
      ReadOnly = True
      ScrollBars = ssBoth
      TabOrder = 0
      OnKeyUp = reCalcStrKeyUp
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 632
    Height = 31
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 29
      Top = 9
      Width = 100
      Height = 13
      Caption = #1055#1077#1088#1080#1086#1076' '#1085#1072#1095#1080#1089#1083#1077#1085#1080#1103
    end
    object bCalculate: TButton
      Left = 299
      Top = 4
      Width = 105
      Height = 23
      Caption = #1056#1072#1089#1089#1095#1080#1090#1072#1090#1100
      TabOrder = 0
      OnClick = bCalculateClick
    end
    object dblcBMonth: TDBComboBoxEh
      Left = 134
      Top = 6
      Width = 83
      Height = 19
      AlwaysShowBorder = True
      EditButton.Width = 16
      EditButtons = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      Items.Strings = (
        #1103#1085#1074#1072#1088#1100
        #1092#1077#1074#1088#1072#1083#1100
        #1084#1072#1088#1090
        #1072#1087#1088#1077#1083#1100
        #1084#1072#1081
        #1080#1102#1085#1100
        #1080#1102#1083#1100
        #1072#1074#1075#1091#1089#1090
        #1089#1077#1085#1090#1103#1073#1088#1100
        #1086#1082#1090#1103#1073#1088#1100
        #1085#1086#1103#1073#1088#1100
        #1076#1077#1082#1072#1073#1088#1100)
      KeyItems.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12')
      ParentFont = False
      TabOrder = 1
      Visible = True
    end
    object dbBYear: TDBNumberEditEh
      Left = 220
      Top = 6
      Width = 73
      Height = 19
      AlwaysShowBorder = True
      EditButtons = <
        item
          Style = ebsMinusEh
          Width = 16
          OnClick = dbBYearEditButtons0Click
        end
        item
          Style = ebsPlusEh
          Width = 16
          OnClick = dbBYearEditButtons1Click
        end>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Flat = True
      MaxValue = 2010.000000000000000000
      MinValue = 2005.000000000000000000
      ParentFont = False
      TabOrder = 2
      Value = 2007.000000000000000000
      Visible = True
    end
  end
  object dsc_Charge: TDataSource
    DataSet = ds_Charge
    Left = 332
    Top = 139
  end
  object ds_Charge: TpFIBDataSet
    SelectSQL.Strings = (
      'select first(1) p.rcalc_str'
      
        '  from proc_gencharge (:pabonent_id, null, :pgroup_id, firstdaym' +
        'onth(encodedate(1,:pmonth, :pyear)), lastdaymonth(encodedate(1,:' +
        'pmonth, :pyear)), null, 0, current_date) p')
    AllowedUpdateKinds = []
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 296
    Top = 139
    poSQLINT64ToBCD = True
    oRefreshAfterPost = False
    object ds_ChargeRCALC_STR: TFIBMemoField
      FieldName = 'RCALC_STR'
      BlobType = ftMemo
      Size = 8
    end
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    CSMonitorSupport.Enabled = csmeDatabaseDriven
    Left = 260
    Top = 139
  end
  object PropStorage: TPropStorageEh
    Section = 'frmShowCharge'
    StorageManager = MAIN.IniPropStorage
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width')
    Left = 88
    Top = 44
  end
  object ds_GrpName: TpFIBDataSet
    SelectSQL.Strings = (
      'select name from services s where s.id = :pgroup_id')
    AllowedUpdateKinds = []
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 296
    Top = 171
    poSQLINT64ToBCD = True
    oRefreshAfterPost = False
    object ds_GrpNameNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
end
